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Î] | Add Windows Form... aû - F< E u a = HOBBS QA - 
أ‎ 3 Adid User Control... | Farm1.vb [Design] | Start Page | w yx | Properties ب‎ [1 + 
ê Add Component... Form2 System.Windows,Fo = 
Ê | Add Module... ا[‎ El 
و‎ E El Accessible] = 
CheckBox i] | Add New tem... Ctrl+Shift+A Accessibleh 7 
CheckedListBox| E | Add Existing Kem... Ctrl+D AccessibleR Default 
1 ج‎ El Appearanc 
ComboBox Exclude From Project رم اليح‎ 
DateTimePicker اا ست اسم المؤسسة‎ 
Label ا‎ Backgrounc (none) 
: Add Reference... E Backgrounc Tile 
LinkLabel و‎ 
Lifes Add Service Reference... Cursor Default 
ا‎ SE SOG Poe 0 Font Tahoma; Spi} 
ik E 5 2 ForeColor mS Control) 
[#-| MaskedTextBox) ¢4 | Refresh Project Toolbox Items لون الخط‎ Fond Sale 
Manna ا‎ reportsting Properties... | RightToLeft No 
aer] Notifylcon : — RightToLeft False ۳ 
E NumericUpDown Text باناث الشركة‎ 
laš] PictureBox UseWaitCur False 
MD ProgressBar El Behavioı 
(® RadioButton AllowDrop False 
RichTextBox AutoValidat EnablePreve 
[abl] TextBox ContextMer (none) 
lk ToolTip DoubleBuff False 
TreeView Enabled True 
3] WebBrowser ImeMode NoControl 
I= Containers El Data 
k Pointer (Applicatior 


FlowLayoutPanel اناا اا‎ 
_| GroupBox 5 
El Design 
Panel 
8 (Name) Form2 
SplitContainer 2 TTT 2 
| TabControl Text 
TableLayoutPanel The text associated with the 


Menus & Toolbars > E 
Item(s) Saved 
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ف 
Toolbory‏ 
ll General‏ 
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x Properties ا‎ 


Application Synchronize | 7] Load Web Settings | lë View Code Access Modifier: Friend EEA! 


There are no usable controls in this 
group. Drag an item onto this text to 


add it to the toolbox. Compile 


Application settings allow you to store and retrieve property settings and other information for your application dynamically. 
Debug For example, the application can save a user's color preferences, then retrieve them the next time it runs, Learn more about 


application settings... 
References 


Resources Name Type Scope Value 
Services ٣ eme E س ا ا‎ 


Settings 


Signing 
My Extensions 
Security 
Publish 


Code Analysis 
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w yx | Properties +H x« 


foundation_no Microsoft.V 


Description 
GenerateDe True 
Name foundation_no 


Provider 
Roaming False 
Scope User 


Setting Type System.String 


Name 


Name used to identify the 
setting. 
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| Toolbox ق تمس فة‎ reportsting | ‘Farma2.vb [Design]” [ Form1.wb [Design] Î Start Page. 
I General 


icatî | Synchronize | 7l Load Web Settings | lë] View Code Access Modifier Friend 2 
There are no usable controls in this App الت ن‎ - 


group. Drag an item onto this text to 


add it to the toolbox. Compile 


Application settings allow you to store and retrieve property settings and other information for your application dynamically. 
Debug For example, the application can save a user's color preferences, then retrieve them the next time it runs, Learn more about 


application settings... 
References 


Resources Name Type Scope Value 
۴ foundation_no isiring 7~ use| 


foundation_na... Boolean 
ج ت‎ 
Date 

Decimal 

Double 

Integer 
1 Long 
Security 


Short 
Publish Single 


Services 


Signing 


My Extensions 


Code Analysis System.Collections.Specialized.StringCollection 
System.Drawing.Color 
System.Drawing.Font 
System.Drawing.Point 
System.Drawing.Size 
System.Guid 

System. TimeSpan 
Ulnteger 

ULong 

UShort 

(Web Service URL) 
(Connection string) 
Browse... 
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yx | Properties اا‎ 
| BackColorfr Micrasoft.Visu > 


EE 
El Misc 


Description 

GenerateDe True 

Name BackColorfr 
Provider 

Roaming False 

Scope User 
SettingType System String 


Name 
Name used to identify the 


۴ ۰ setting. 
(Connection string) ا و‎ 
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[Toolbox 
ll General 


icatî Synchronize | i Load Web Settings [El View Code Access Modifier Friend ت‎ 
There are no usable controls in this Appia 4 س س لانت س‎ 


group. Drag an item onto this text to 


add it to the toolbox. Compile 


Application settings allow you to store and retrieve property settings and other information for your application dynamically. 
Debug For example, the application can save a user's color preferences, then retrieve them the next time it runs, Learn more about 


application settings... 
References 


Resources Name Type Scope Value 


E: foundation_no [Integer ¥ User 1 
ervices 


foundation_na... [string 3 [User < | ادیو سوت‎ 


Settings" 
7 tel [string = [User v0 


الي - إب 


Signing address 
٣ BackColorfr 


¥ Boolean 

Byte‏ ت 
ا Security‏ 

1 Date 
Pun Decimal 
Double 
Integer 
Long 
SByte 
Short 
Single 
String 
System.Collections.Specialized.StringCollection 
System.Drawing.Color 
System.Drawing.Font 
System.Drawing.Point 
System.Drawing.Size 
System.Guid 
System. TimeSpan 
Ulnteger 
ULong 
UShort 
(Web Service URL) 


My Extensions 


Code Analysis 
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ضتت‎ * î Form2ub™ reportsting” | Form2.wb [Design] Fe 


w yx | Properties +H x« 


E General BackColorfr Microsoft.Visu 
Applicat nchronize | 7 Load Web Settings | [E] View Code Access Modifier: Friend 
There are no usable controls in this ن و‎ 2 = 
ree E 
: Application settings allow you to store and retrieve property settings and other information for your application dynamically. Description 
Debug For example, the application can save a user's color preferences, then retrieve them the next time it runs, Learn more about GenerateDe True 
application settings... E BachCalurtfr 

References Pritt 

Roamil False 
Resources Name Type Scope Value caming 

Scope User 
SS foundation_no [Integer wv User 1 SettingType System.Drawir| 

foundation_na... [string vw User > | ادیو سوفت‎ 
Settings” 
gs tel [string > User >| 0 
Signing address [String v User | اليمن - إب‎ 
My Extensions ۴ BackColorfr | System. Dra... » User v | 
# | 2 Custom | Web (system 
Security E Dark Blue 4 
E MediumBlue 
3 E Glue 
2 TI ehostwhite 
E SlateBlue 

Code Analysis N Dark SlateBlue 


WI MediumSlateBlue 
EEE MediumPurple 
N DlueViolet 
Indigo 
DarkOrchid 

N Dark Violet 

EE MediumOrchid 
Thistle 

E Plıım 


Name 


Name used to identify the 
setting. 
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Toolbox مستت‎ Form2.up? reportsting* | Form2.vb [Design] l Forml.vb [Design] | Start Par w x [Properties ا‎ 


1 
اه 
ا 
4 
۶ 
فخ 
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E General ForeColorfr Microsoft. VisualStudio,Editors.S 
Applicat nchronize | 1 Load Web Settings [E] View Code Access Modifier: Friend 
There are no usable controls in this سے ل ل‎ = 
group. Drag an item onto this text to 
add it to the toolbox. Cu 2 : ا‎ 
Application settings allow you to store and retrieve property settings and other information for your Description 
Debug application dynamically. For example, the application can save a user's color preferences, then retrieve them GenerateDefaultValı True 
the next time it runs. Learn more about application settings... Hane E E EE 
References E 
Rı 1 False 
Resources Name Type Scope Value حا‎ 
Scope User 
Services foundation no [Integer ا‎ 1 SettingTypeNlame System.Drawing.Color 
foundation_na... [string v [User < | ادیو سوفت‎ 
Settings" 
ا‎ tel [string vw User v0 
Signing address [string ¥ User | اليمن - إب‎ 
My Erie BackColorfr [System.Dra.. v User 4 Blueviolet 
ForeColorfr System.Dra.. | ¥ User r rea 
Security . 
4 1 2 2 
Publish 
Code Analysis 


SettingTypeName 
The setting will be generated as this type in 
the strongly-typed settings class. For exampl... 
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Field Explorer > ¥ i 
Ê Database Fields _ kk _ _ 2 == = کے‎ 3 
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[7] Parameter Fields | Section (Report Header ) 2 
E Group Name Fields da | ا‎ 
> | ¥ Secltion2 Header 
TE Running Total Fields ا‎ 22 2 J 

: # Special Fields | 

A. Unbound Fields ت‎ | 
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| ¥ Section (Details ) 

| ¥ Section4 (Report Footer ) 
| 

| ¥ Section5 (Page Footer } 
- 
| 

3 Toolbox Field Explorer El Main Report Main Report Preview 

[Output RH x| 

Show output from: Debug > EEE E E 

The thread Jxe90 has exited with code 0 (OxD0} . 


"reportsting .vshost exe" (Managed) : Loaded 'D:\£i11eغ2009%J1I الجزء العملي١أارسال اتى راص التقرير واعدادت‎ ١2003 ملقات اتترم الثاتي‎ ting \reportstingreportsڃtخing‎ bin Debug reportst 
"reportsting .vshost exe" (Managed) : Loaded 'C:\Windows\assembly\GAC_MSILNSystem-Runtime _Remoting\2 .0.0.0__b77a5c561934e089\System Runtime Remoting d11", Skipped loading symbol 
"reportsting .vshost exe" (Managed) : Loaded 'C:\Windows\assembly\GAC_MSIILNSystem-Configuration\2.0-.0.0__bO3£5£7£11d50a3a\System.Configuration-d11', Skipped loading symbols. Mod 
The thread ûx1440 has exited with code 0 (0x0) 

The thread Ox1lé50c has exited with code 0 {[Ox0) 

The program ' [4188] reportsting-vshost exe: Managed" has exited with code 0 (0x0) . 
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MessageBoxButtons. OK, 
MessageBoxOptions.RtLReading) 


Imports CrystalDecisions.CrystalReports.Engine 


Public ClasS8 Form2 


Private S 


jر‏ اzlفbظ( ub Button1 Click‏ 
My.Settings. foundation no = Me.TextBoxl. Text‏ 
My.Settings. foundation name = Me.TextBox2.Text‏ 
My.Settings.tel = Me.TextBox3.Text‏ 
My.Settings.address = Me.TextBox4.Text‏ 
My.Settings.BackColorfr = Me.TextBox5.BackColor‏ 
My.Settings.ForeColorfr = Me.TextBox6.ForeColor‏ 
چ جخ کے ی تک ج کے E‏ 
My.Settings.Save ()‏ 
کے کے ج ج کے دج کے ج اک کے کے کے نے کے 9 
,"حفظ" ,"بنجاح الخفظ غملية تêaڈû"( MessageBox : SîOW‏ 


MessageBoxIcon.Error, MessageBoxDefaultButton. Buttonz2, 


End Süb 


Private Sub Form2_Ioad Jيمحتلا‎ 


Me.TextBox1l.Text = My.Settings.foundation_ no 

Me.TextBox2.Text = My.Settings.foundation_ name 

Me.TextBox3.Text = My.Settings.tel 

Me.TextBox4.Text = My.Settings.address 

Me.TextBox5.BackColor = My.Settings.BackColorfr 

Me.TextBox6.ForeColor = My.Settings.ForeColorfr 
ERQ. Sub 


Private Sub Button4 Click( ريرقتتةlاl عرض‎ 

Dim rpt As New CrystalReport1 

Dim t1 As TextObject 

0 rpt.Section2.ReportObjects ("tx_ no") 
L1.Text My.Settings. foundation no.ToString 
Dim t2 As TextObject 

L2 rpt.Section2.ReportObjects ("tx_ name") 
L2.Text My.Settings. foundation name. ToString 
Dim t3 As TextObject 

ê EPESECELORNZ2.REDOEEODIECES (FER tel) 
LC3.Text My.Settings.tel.ToString 

Dim t4 As TextObject 

L4 rpt.Section2:.ReportOobjects ("tx addfFess™) 
L4.Text My.Settings.address.ToString 
Form3.CrystalReportViewer1.ReportSource 
Form3.CrystalReportViewerl.RefreshReport () 
Form3. Show () 


EBÊ 


ERQ SUb 
ERG CIaSS 
Dim colorPicker As New ColorDialog () 
colorPicker.Color = Me.m newForeColor 


If (colorPicker.ShowDialog() = Windows.Forms.DialogResult.OK) Then 
m_newForeColor = colorPicker.Color 
Me.OptionsPreviewTextBox.ForeColor = m newForeColor 

ER. EE 

Dim fontDialog As New FontDialog () 

fontDialog.Font = m newFont 

If (fontDialog.ShowDialog() = Windows.Forms.DialogResult.OK) Then 
m_newFont = fontDialog.Font 
Me.OptionsPreviewTextBox.Font = m_ newFont 

ER EE 
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